function vbConfirmDelete(byval msg)
	dim a
	a = msgbox (msg,257, "Confirm Delete")
	vbConfirmDelete = a
end function

Function vbYesNoCancel(ByVal Message, ByVal Title)
  vbYesNoCancel = MsgBox(Message, 3, Title)
End Function